(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     49808,       1295]
NotebookOptionsPosition[     38381,       1048]
NotebookOutlinePosition[     39053,       1074]
CellTagsIndexPosition[     38973,       1069]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.7", "HistoryData",
  CellTags->"New",ExpressionUUID->"e5b1a691-d1bf-44b4-be2d-9f6634ab1cf7"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"35be39fa-b2eb-4210-993e-52c1e45b7f8d"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"3e0fa170-966c-4a40-8fd4-4115caf12708"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"a341428c-83cb-4916-af60-ba1229af0eb8"]
}], "History",
 CellID->1247902091,ExpressionUUID->"41b92cb5-6307-4b65-9d1f-1cd6b1a08f27"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"4b2fade1-3d42-480c-bae4-79df1e90e901"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"6be13ae6-e0b8-471b-adac-870e74167591"],

Cell["MaXrd", "Categorization",
 CellChangeTimes->{3.743836528136569*^9},
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"bbb319de-3ca0-4fc1-a9a2-e4c951db8cf5"],

Cell["MaXrd`", "Categorization",
 CellChangeTimes->{3.74383652854068*^9},
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"80d6f25b-c374-4795-b1f9-891196b30cf7"],

Cell["MaXrd/ref/SymmetryEquivalentReflectionsQ", "Categorization",
 CellChangeTimes->{3.730134867879826*^9, 3.7438365288447523`*^9},
 CellLabel->"URI",ExpressionUUID->"08c15264-06bf-42ee-8484-e79f20e11f02"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"11256e91-e561-4e94-a5e0-eb46041e8b1d"],

Cell["XXXX", "Keywords",
 CellID->1164421360,ExpressionUUID->"68c827e3-cebb-4a5a-b33a-e09571824d44"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"6db675a1-b45c-479a-ac09-1cfa1895af63"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"a9ca113b-df6d-41d9-a2ee-8f75333d3494"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"e841e610-54de-4865-8fa8-2a5647bdcbd8"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"e5c70a0d-8a41-4185-81ea-365c6cba37e6"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"d40c81a8-26fb-44b1-96ed-7bb8324593da"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"14ec82a3-eaa9-44e9-962b-5f2db3f40929"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"f423730a-fac6-4b44-aa37-0750131658e7"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"e2a748d3-13bf-46c8-b82b-dfa3fbb9c97a"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"c36a21c2-d85a-4dda-9aaa-8210fa8b7d59"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"8da9bc22-a5c0-4486-bf2e-8915eb51f6d3"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"46beba1c-a6b8-4efc-a70f-88942d551c75"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"84a24b25-de1a-4cdf-b56f-19a470453cde"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"050b674e-cbcf-4ba1-882e-fa8ae3a48d47"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"99a1d6fc-eebf-4cee-9ec1-66acb74786d2"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"cf22ae1b-6ba2-4b01-a798-ae9eb9aaf93b"]
}, Closed]],

Cell[CellGroupData[{

Cell["SymmetryEquivalentReflectionsQ", "ObjectName",
 CellChangeTimes->{{3.730134861897565*^9, 3.730134864414146*^9}},
 CellID->1224892054,ExpressionUUID->"343d5467-fd87-4803-9629-dd60ff2f1ef0"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"62420659-3156-4aa1-81f1-9a015abeded8"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["SymmetryEquivalentReflectionsQ",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/SymmetryEquivalentReflectionsQ"], "[", 
   RowBox[{
    StyleBox["group", "TI"], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["h", "TI"], 
         StyleBox["1", "TR"]], ",", 
        SubscriptBox[
         StyleBox["k", "TI"], 
         StyleBox["1", "TR"]], ",", 
        SubscriptBox[
         StyleBox["l", "TI"], 
         StyleBox["1", "TR"]]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["h", "TI"], 
         StyleBox["2", "TR"]], ",", 
        SubscriptBox[
         StyleBox["k", "TI"], 
         StyleBox["2", "TR"]], ",", 
        SubscriptBox[
         StyleBox["l", "TI"], 
         StyleBox["2", "TR"]]}], "}"}], ",", 
      StyleBox["\[Ellipsis]", "TR"]}], "}"}]}], "]"}]], "InlineFormula",
  ExpressionUUID->"f95619f2-765a-42af-b955-029879192e72"],
 " \[LineSeparator]yields ",
 Cell[BoxData[
  ButtonBox["True",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/True"]], "InlineFormula",ExpressionUUID->
  "5bc29431-2463-46ee-a83c-87f693c561f2"],
 " if all reflections ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["hkl", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula",ExpressionUUID->
  "609966e0-70b3-4339-a6f8-763533356c1d"],
 " are symmetry equivalent in the given point ",
 Cell[BoxData[
  StyleBox["group", "TI"]], "InlineFormula",ExpressionUUID->
  "410d6903-e03f-4002-9d21-f4015fde29c5"],
 ", and ",
 Cell[BoxData[
  ButtonBox["False",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/False"]], "InlineFormula",ExpressionUUID->
  "226ea500-ebc4-4dc2-a9c8-3469e19aad26"],
 " otherwise."
}], "Usage",
 CellChangeTimes->{{3.684217282890053*^9, 3.684217394813922*^9}, {
  3.684492705936743*^9, 3.684492962638232*^9}, {3.684493019606888*^9, 
  3.68449304669281*^9}, {3.713081568163488*^9, 3.713081569028914*^9}, {
  3.730134882240004*^9, 3.73013488224018*^9}},
 CellID->982511436,ExpressionUUID->"4544d898-b335-4cf6-9df2-e7752c38d861"],

Cell[TextData[{
 "The label of crystal (entry) in ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"9b0b2250-19c5-4034-9efa-907ab3a10da7"],
 " or a space group may be used instead of ",
 Cell[BoxData[
  StyleBox["group", "TI"]], "InlineFormula",ExpressionUUID->
  "49363e10-ad06-4d67-bd5a-2cc354d3356a"],
 "; the Laue class is found automatically."
}], "Notes",
 CellChangeTimes->{{3.713081596323901*^9, 3.713081633763116*^9}, {
  3.713081672987465*^9, 3.713081715209227*^9}},
 CellID->1067943069,ExpressionUUID->"07d17f3d-38ad-4c65-b710-3050a85f8248"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"42fabadd-4b7c-4c7f-85be-51750940b0a7"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"11c8a139-8b8c-4683-ad72-83bff7b78e3b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"534bdd52-71ac-488b-af42-8b1daa72f0b2"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"f099c96e-c3f8-4bd2-bb7d-9c39734ccccc"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"7321bba7-1d63-4cc5-983f-24173a12f947"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"ca3f3e5a-96d9-40de-a4fb-41c3a8d615f6"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"6eb864d1-fda6-4158-bdab-79e3e6f85285"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["SymmetryEquivalentReflections",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/SymmetryEquivalentReflections"]], 
  "InlineFormula",ExpressionUUID->"18e0ef36-e0df-420b-94e3-470a82395955"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"c6254a41-9468-4fb2-8766-20f6c75e75ae"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ImportCrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ImportCrystalData"]], "InlineFormula",
  ExpressionUUID->"6b7c808d-0472-4980-b193-9b842709f675"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["SystematicAbsentQ",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/SystematicAbsentQ"]], "InlineFormula",
  ExpressionUUID->"902c53d0-1f06-4949-beef-326b7c4d8955"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["StructureFactor",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/StructureFactor"]], "InlineFormula",
  ExpressionUUID->"3023254b-abb3-4783-bb25-4853a96cabe6"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ToStandardSetting",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ToStandardSetting"]], "InlineFormula",
  ExpressionUUID->"77da365b-c6bc-430d-826d-a5d7000ef6b6"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ReflectionList",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ReflectionList"]], "InlineFormula",
  ExpressionUUID->"e09dc3f9-3188-4e63-ab9f-07bf017ebb56"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["MergeSymmetryEquivalentReflections",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/MergeSymmetryEquivalentReflections"]], 
  "InlineFormula",ExpressionUUID->"ae18380a-dae8-43f1-b65b-313805b02d11"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetLaueClass",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetLaueClass"]], "InlineFormula",
  ExpressionUUID->"7e544b25-a246-4608-a0e6-e9ae58e53fe2"]
}], "SeeAlso",
 CellChangeTimes->{{3.684493267282267*^9, 3.684493308638068*^9}, {
  3.713081536462644*^9, 3.713081545213293*^9}, {3.717951546313878*^9, 
  3.717951546314012*^9}, {3.730106709103125*^9, 3.7301067091033897`*^9}, {
  3.730400935360914*^9, 3.730400956400095*^9}, {3.737968529208372*^9, 
  3.737968529208519*^9}},
 CellID->929782353,ExpressionUUID->"d465fd6c-5bc2-4bb5-b3cc-c1e182004859"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"72681b7f-dd11-43cc-946a-659b46212a7d"],

Cell["XXXX", "MoreAbout",
 CellChangeTimes->{{3.68449309311203*^9, 3.684493095273308*^9}},
 CellID->1817734421,ExpressionUUID->"f72af250-7a68-4a7c-ad98-5faa1bccdd88"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"f205d199-0a8e-4df2-b361-634cc95c0873"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SymmetryEquivalentReflectionsQ", "[", 
  RowBox[{"\"\<m\!\(\*OverscriptBox[\(3\), \(_\)]\)m\>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "3"}], ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2"}], ",", "3", ",", "0"}], "}"}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6827609400159082`*^9, 3.682760955351699*^9}, 
   3.7301348850248013`*^9},
 CellLabel->"In[1]:=",
 CellID->727704819,ExpressionUUID->"a94b1a26-f5a8-4ca0-a901-907929c968ae"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.682760955799211*^9, 3.68360426808741*^9, 3.684139481121994*^9, 
   3.684213020720066*^9, 3.6842134881317167`*^9, 3.684492477661913*^9, 
   3.684493102716308*^9, {3.730134918772768*^9, 3.7301349217693663`*^9}, {
   3.7301357257422543`*^9, 3.7301357327296343`*^9}, 3.7304008908018913`*^9},
 CellLabel->"Out[1]=",
 CellID->1592317819,ExpressionUUID->"691ae273-1e7c-4723-b82f-abfe0891af3d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SymmetryEquivalentReflectionsQ", "[", 
  RowBox[{"\"\<2/m\>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "3"}], ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2"}], ",", "3", ",", "0"}], "}"}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6827609695869293`*^9, 3.682760970290197*^9}, 
   3.730134886649056*^9},
 CellLabel->"In[2]:=",
 CellID->670837677,ExpressionUUID->"18c4270a-8eb3-480c-a030-938c6175ab78"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{{3.68276096593228*^9, 3.68276097053284*^9}, 
   3.6836042695202847`*^9, 3.684139482604084*^9, 3.684213022646331*^9, 
   3.684213488275771*^9, 3.6844924792234993`*^9, 3.684493104513442*^9, 
   3.7301349224659967`*^9, {3.730135726129076*^9, 3.7301357328951807`*^9}, 
   3.7304008915709248`*^9},
 CellLabel->"Out[2]=",
 CellID->1422466541,ExpressionUUID->"fbde36ca-c1da-4160-982c-027e6e9e18d1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SymmetryEquivalentReflectionsQ", "[", 
  RowBox[{"\"\<Fd-3m\>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2", ",", "1"}], "}"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.682757896846437*^9, 3.6827579308809767`*^9}, {
   3.682761168414857*^9, 3.682761181371882*^9}, 3.7301348880889187`*^9, {
   3.730135721739624*^9, 3.7301357226972303`*^9}},
 CellLabel->"In[3]:=",
 CellID->506118485,ExpressionUUID->"360f3af1-cd01-46eb-b097-0ad3d41bc38f"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.6844931060507307`*^9, 3.7301349233835297`*^9, 
  3.730135733046719*^9, 3.730400891987862*^9},
 CellLabel->"Out[3]=",
 CellID->51452510,ExpressionUUID->"d16449cc-1d53-4a24-abd4-7eb1ec8975f3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "a9e5e5be-d1c9-4a21-ad57-1494fc3211aa"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1902417437,ExpressionUUID->"becf4b16-ca2f-42a6-b74d-a0c43a7f49b5"],

Cell[TextData[{
 "Entries from ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"11485b65-9cec-4acb-ba0a-ed4a999b3f21"],
 " may be used directly:"
}], "ExampleText",
 CellChangeTimes->{{3.684493117521891*^9, 3.6844931287727737`*^9}},
 CellID->45843476,ExpressionUUID->"720c4508-1705-48d9-836d-93e2092e71b7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SymmetryEquivalentReflectionsQ", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "3"}], ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2"}], ",", "3", ",", "0"}], "}"}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6841395357772713`*^9, 3.684139536700713*^9}, 
   3.730134889616984*^9},
 CellLabel->"In[1]:=",
 CellID->676950156,ExpressionUUID->"eb328efa-808a-4d77-b686-a9512f79bf80"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.684493135320065*^9, 3.6844932014597893`*^9, 
  3.730134925760627*^9, 3.7304008947957497`*^9},
 CellLabel->"Out[1]=",
 CellID->1311300783,ExpressionUUID->"1ec5a3d0-3401-4c19-91f5-f022e72be614"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SymmetryEquivalentReflectionsQ", "[", 
  RowBox[{"\"\<GalliumArsenide\>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "3"}], ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2"}], ",", "3", ",", "0"}], "}"}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6841394983711157`*^9, 3.68413950518622*^9}, {
  3.684213320522663*^9, 3.684213323915592*^9}, {3.7301348911368303`*^9, 
  3.730134895421755*^9}},
 CellLabel->"In[2]:=",
 CellID->1577021808,ExpressionUUID->"d7578de9-a742-4b43-85cb-e3d220b244b7"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.68449314225869*^9, {3.6844931966410723`*^9, 3.684493202790246*^9}, 
   3.730134927098905*^9, 3.7304008951634617`*^9},
 CellLabel->"Out[2]=",
 CellID->1360032209,ExpressionUUID->"2c836cb7-770a-4c56-bd47-01c85b76bf38"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"357b84d4-c4f2-4223-835b-7d80c14da5ae"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "4d7157fb-8cf7-4e20-8d5f-76b65041aec9"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"7f395b67-2207-4cc8-9444-1ebd2c615efd"],

Cell[TextData[{
 "Let us go through the last example in more detail. We inputted the crystal \
labelled ",
 Cell[BoxData[
 "\"\<GalliumArsenide\>\""], "InlineFormula",ExpressionUUID->
  "5faa7c4b-0a87-4e20-96f0-cbeede6b631f"],
 " and wanted to see whether the two reflections ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    OverscriptBox["3", "_"], "\[VeryThinSpace]", "0", "\[VeryThinSpace]", 
    "2"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "72a593dd-8dbc-4f00-9b9c-5afceefd64d9"],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    OverscriptBox["2", "_"], "\[VeryThinSpace]", "3", "\[VeryThinSpace]", 
    "0"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "1193bd0a-b99a-4106-ab7d-21c4593df586"],
 " were symmetrical equivalent under the symmetry of this crystal.\
\[LineSeparator]Let us start by finding the space group of this crystal. This \
can be done either by looking up that key in ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"6c8d5719-deef-4022-b25d-21b9db344d23"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.730135077307021*^9, 3.730135155233903*^9}, {
   3.730135188514049*^9, 3.7301352994280043`*^9}, 3.730135354694397*^9, {
   3.7301354126408377`*^9, 3.7301354252596483`*^9}},
 CellID->1380641436,ExpressionUUID->"50bde84f-860f-41f2-a1e0-782d093e5a8b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$CrystalData", "[", 
  RowBox[{"\"\<GalliumArsenide\>\"", ",", "\"\<SpaceGroup\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.730135300951071*^9, 3.730135309475889*^9}},
 CellLabel->"In[1]:=",
 CellID->360263669,ExpressionUUID->"8f74b501-1ae6-49c4-9a28-3af307bf6efd"],

Cell[BoxData["\<\"F\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)3m\"\>"], \
"Output",
 CellChangeTimes->{3.7301353097217693`*^9, 3.730135346439176*^9, 
  3.730400909301023*^9},
 CellLabel->"Out[1]=",
 CellID->1024495232,ExpressionUUID->"6dec6eed-413f-443e-a894-dcc9f62dfeea"]
}, Open  ]],

Cell[TextData[{
 "\[Ellipsis] or by letting ",
 Cell[BoxData[
  ButtonBox["GetSymmetryData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetSymmetryData"]], "InlineFormula",
  ExpressionUUID->"306e587b-751c-4f64-960c-30d190226c1d"],
 " find that key for us:"
}], "ExampleText",
 CellChangeTimes->{{3.730135319189774*^9, 3.7301353575065727`*^9}, {
  3.7379685568446817`*^9, 3.737968556844782*^9}},
 CellID->428064815,ExpressionUUID->"ec6cccc2-5d51-4576-8e21-0e77964fe8bc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetSymmetryData", "[", 
  RowBox[{"\"\<GalliumArsenide\>\"", ",", "\"\<Symbol\>\""}], "]"}]], "Input",\

 CellChangeTimes->{{3.7301353318551283`*^9, 3.7301353396591377`*^9}, 
   3.737968556968499*^9},
 CellLabel->"In[2]:=",
 CellID->1188448529,ExpressionUUID->"827dd1eb-8d97-42f1-814e-e20d339a20ad"],

Cell[BoxData["\<\"F\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)3m\"\>"], \
"Output",
 CellChangeTimes->{{3.7301353399113817`*^9, 3.73013534702559*^9}, 
   3.730400909428941*^9},
 CellLabel->"Out[2]=",
 CellID->167482578,ExpressionUUID->"90021916-f426-4eba-9757-de996ac03128"]
}, Open  ]],

Cell[TextData[{
 "In any, case we see that the space group in question is ",
 Cell[BoxData[
  FormBox[
   RowBox[{"F", "\[VeryThinSpace]", 
    OverscriptBox["4", "_"], "\[VeryThinSpace]", "3", "\[VeryThinSpace]", 
    "m"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "cc7f6e1b-154c-41cb-b706-f8c0118a0d32"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.730135361068281*^9, 3.730135398700027*^9}},
 CellID->1349043229,ExpressionUUID->"b537a2c7-81b8-415b-81c4-54105bc0efd0"],

Cell[TextData[{
 "There is a set of symmetry operations linked to every space group. Now we \
can take one of the reflections, for instance ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    OverscriptBox["3", "_"], "\[VeryThinSpace]", "0", "\[VeryThinSpace]", 
    "2"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "44487e9e-8ee6-40de-8962-38e90f2cb11f"],
 ", and generate all symmetry equivalent reflections:"
}], "ExampleText",
 CellChangeTimes->{{3.730135463394107*^9, 3.73013560033545*^9}},
 CellID->1615340659,ExpressionUUID->"95f9a712-b782-4771-8170-a6682102e755"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SymmetryEquivalentReflections", "[", 
  RowBox[{"\"\<F-43m\>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3"}], ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.730135610699217*^9, 3.730135623255179*^9}},
 CellLabel->"In[3]:=",
 CellID->2133512658,ExpressionUUID->"f1080102-9a3c-4f84-b469-2ecb92696cc8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3"}], ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "0", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3"}], ",", "0", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", 
     RowBox[{"-", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "3"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "3", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "3"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "3"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "3", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "3"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "3", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3"}], ",", 
     RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", 
     RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3"}], ",", "2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "0", ",", 
     RowBox[{"-", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0", ",", 
     RowBox[{"-", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "0", ",", "3"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.730135623547679*^9, 3.7304009095695877`*^9},
 CellLabel->"Out[3]=",
 CellID->1676110876,ExpressionUUID->"f07ed2be-f89f-4c86-aa38-fe2b7e57aa54"]
}, Open  ]],

Cell[TextData[{
 "We see that the other reflection, ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    OverscriptBox["2", "_"], "\[VeryThinSpace]", "3", "\[VeryThinSpace]", 
    "0"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "cb367fdf-68cd-4c19-8a5e-5e0310de49f1"],
 ", is the tenth element in that list. Thius, the two reflections are \
symmetry equivalent."
}], "ExampleText",
 CellChangeTimes->{{3.730135628509939*^9, 3.730135688620759*^9}},
 CellID->1052329130,ExpressionUUID->"7d1a1ea7-e969-45c8-83d5-020af28c12b3"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "016d6afc-e58f-4545-9385-97462d49903b"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"aa760848-6279-420a-bc52-dd155d77d243"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "9ef37238-ce70-455e-a038-a59575137b65"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"5d03bd77-1ecb-4069-9462-7c55c8db40a0"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "2b893952-1a0d-4fb0-82f5-cdcb4e785d36"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783,ExpressionUUID->"ee0113d7-f167-4649-929d-e4ca0252b8ce"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "cc4d5a34-da69-453e-9f1f-8764b45b099c"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749,ExpressionUUID->"666d452f-f4c5-4eb0-b75c-ffc52a217cfb"]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "1f9682af-456f-4ecf-9ff8-f16c34272844"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"525622ef-a63f-441a-9193-97f76b4a8be9"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "36d066b4-e046-4e9f-ac51-97b9b0980c80"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"52a5343e-9e0e-495f-9b73-f720dd6060e5"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "b6444b92-7afb-41c2-bffb-a11a10267487"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"e1eee1a3-93bc-435a-8989-c8f9cd9bdf07"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SymmetryEquivalentReflectionsQ", "[", 
  RowBox[{"\"\<\!\(\*OverscriptBox[\(1\), \(_\)]\)\>\"", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6607280590289*^9, 3.660728062470067*^9}, {
   3.660728110800898*^9, 3.660728153934754*^9}, {3.682757035402899*^9, 
   3.682757051005082*^9}, {3.682760975160557*^9, 3.682760985260724*^9}, 
   3.730134898663473*^9},
 CellLabel->"In[1]:=",
 CellID->1285983698,ExpressionUUID->"ced7f501-01c8-41b1-b69e-e2cf5955b41e"],

Cell[BoxData[
 TemplateBox[{
  "InputCheck","MultipleTuplesExpected",
   "\"At least two reflections are required to make comparisons.\"",2,1,17,
   26775811996559735324,"Local","MaXrd`InputCheck"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{
  3.684493245577751*^9, {3.713081754141905*^9, 3.71308176499496*^9}, 
   3.7301350193952827`*^9, 3.730135758683276*^9, 3.730400916954599*^9, 
   3.7416292439438143`*^9, 3.787053940139045*^9},
 CellLabel->"During evaluation of In[1]:=",
 CellID->70512762,ExpressionUUID->"32200882-889b-4895-9ac3-8796b109609d"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{
  3.684493245586698*^9, {3.713081754172447*^9, 3.713081765011698*^9}, 
   3.7301350194191217`*^9, 3.7301357587032347`*^9, 3.730400916977954*^9, 
   3.741629243968392*^9, 3.787053940164001*^9},
 CellLabel->"Out[1]=",
 CellID->1844501437,ExpressionUUID->"cb6e6cfb-40b3-4932-80aa-79caa9ebb4b3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SymmetryEquivalentReflectionsQ", "[", 
  RowBox[{"\"\<6/mmm\>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "6", ",", "7"}], "}"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.668184927896641*^9, 3.6681849417896338`*^9}, {
   3.668187896401454*^9, 3.6681878968724203`*^9}, {3.682757087600706*^9, 
   3.682757095000476*^9}, {3.682761126163929*^9, 3.6827611396103373`*^9}, 
   3.7301349004008827`*^9},
 CellLabel->"In[2]:=",
 CellID->479081005,ExpressionUUID->"4edf24fe-1d1a-42c0-956c-44bd95b8c644"],

Cell[BoxData[
 TemplateBox[{
  "InputCheck","InvalidTuple",
   "\"Reflections (and coordinates) must be on a \
{\\!\\(\\*\\nStyleBox[\\\"h\\\", \\\"TI\\\"]\\), \\!\\(\\*\\nStyleBox[\\\"k\\\
\", \\\"TI\\\"]\\), \\!\\(\\*\\nStyleBox[\\\"l\\\", \\\"TI\\\"]\\)} (or \
{\\!\\(\\*\\nStyleBox[\\\"x\\\", \\\"TI\\\"]\\), \\!\\(\\*\\nStyleBox[\\\"y\\\
\", \\\"TI\\\"]\\), \\!\\(\\*\\nStyleBox[\\\"z\\\", \\\"TI\\\"]\\)}) form\"",
   2,2,18,26775811996559735324,"Local","MaXrd`InputCheck"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{
  3.684493246194458*^9, {3.7130817576071453`*^9, 3.713081765257803*^9}, 
   3.730135023254773*^9, 3.730135759014593*^9, 3.730400917289063*^9, 
   3.741629244861218*^9, 3.7870539411685457`*^9},
 CellLabel->"During evaluation of In[2]:=",
 CellID->1274717907,ExpressionUUID->"6b58a425-d133-42b1-8d5a-7fa929366a51"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{
  3.684493246204671*^9, {3.713081757625058*^9, 3.7130817652748404`*^9}, 
   3.7301350232752037`*^9, 3.730135759035804*^9, 3.730400917310004*^9, 
   3.741629244885869*^9, 3.7870539411931677`*^9},
 CellLabel->"Out[2]=",
 CellID->887000477,ExpressionUUID->"7963a099-22a4-4dcf-afff-77c204e211f8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SymmetryEquivalentReflectionsQ", "[", 
  RowBox[{"\"\<123\>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.668184927896641*^9, 3.6681849417896338`*^9}, {
   3.6681879058254213`*^9, 3.668187913461383*^9}, {3.6827570959947577`*^9, 
   3.682757114290547*^9}, {3.682761143904735*^9, 3.682761148269308*^9}, 
   3.730134901126602*^9},
 CellLabel->"In[3]:=",
 CellID->998258432,ExpressionUUID->"adf7aa12-6ba7-4dca-b76e-ba1a5d6af6b7"],

Cell[BoxData[
 TemplateBox[{
  "GetSymmetryOperations","missing",
   "\"No data found on \[LeftGuillemet]\\!\\(\\*RowBox[{\\\"\\\\\\\"123\\\\\\\
\"\\\"}]\\)\[RightGuillemet].\"",2,3,19,26775811996559735324,"Local",
   "MaXrd`GetSymmetryOperations"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{
  3.684493246524034*^9, {3.71308175909022*^9, 3.713081765374017*^9}, 
   3.730135025929398*^9, 3.730135759170103*^9, 3.730400917455784*^9, 
   3.741629245511849*^9, 3.787053942177861*^9},
 CellLabel->"During evaluation of In[3]:=",
 CellID->452546014,ExpressionUUID->"200f6565-b488-4d1d-b03d-d746967e3d65"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{
  3.6844932465333014`*^9, {3.7130817591071377`*^9, 3.713081765390635*^9}, 
   3.730135025949284*^9, 3.730135759189921*^9, 3.730400917475924*^9, 
   3.741629245535171*^9, 3.787053942202273*^9},
 CellLabel->"Out[3]=",
 CellID->1701263271,ExpressionUUID->"8803e5fc-973d-4608-83f3-8035cd1f8189"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "d91a835b-2cd8-42e6-8995-67444c2841a5"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"a6f99cab-d009-403f-ae3f-3649071ba380"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "e0fb25ea-374b-4bfa-8a07-78a570fdec68"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"bdb9fe7f-c069-4719-9a10-7c645312d726"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[TextData[{
   StyleBox["Mathematica",
    FontSlant->"Italic"],
   " code"
  }], "ExampleSection",ExpressionUUID->"0bac3070-fd75-417e-b70d-1bf4b124ec8d"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.6844931549487667`*^9, 3.68449315896189*^9}},
 CellID->1544545457,ExpressionUUID->"466cee04-7426-40c0-981f-ea7bd63f3d06"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"SyntaxInformation", "@", "SymmetryEquivalentReflectionsQ"}], "=", 
   
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"\"\<ArgumentsPattern\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"_", ",", "_"}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.7567181293502903`*^9, 3.756718141676044*^9}},
 CellLabel->"In[891]:=",
 CellID->1983196905,ExpressionUUID->"fdef7999-d3b7-435d-8a23-469d253b3e65"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SymmetryEquivalentReflectionsQ", "[", 
   RowBox[{"group_String", ",", "hkl_List"}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "equiv", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{"Check", " ", "input"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Check", "[", 
      RowBox[{
       RowBox[{"InputCheck", "[", 
        RowBox[{"hkl", ",", "\"\<Multiple\>\""}], "]"}], ",", 
       RowBox[{"Abort", "[", "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"Listing", " ", "all", " ", "symmetry"}], "-", 
       RowBox[{
       "equivalents", " ", "of", " ", "the", " ", "first", " ", 
        "reflection"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"equiv", "=", 
      RowBox[{"SymmetryEquivalentReflections", "[", 
       RowBox[{"group", ",", 
        RowBox[{"First", "@", "hkl"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Checking", " ", "if", " ", "all", " ", "given", " ", "reflections", 
       " ", "are", " ", "symmetry", " ", "equivalent"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"AllTrue", "[", 
      RowBox[{"hkl", ",", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{"equiv", ",", "#"}], "]"}], "&"}]}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{
  3.6678115931321983`*^9, 3.668106086235696*^9, {3.6681847250202436`*^9, 
   3.668184763578227*^9}, {3.668184859415769*^9, 3.6681848958952827`*^9}, {
   3.6681849656538982`*^9, 3.668184966557592*^9}, {3.668186746700986*^9, 
   3.668186748499941*^9}, {3.668186887833519*^9, 3.668186915465481*^9}, 
   3.668187179635866*^9, {3.6681873567029552`*^9, 3.668187367461336*^9}, {
   3.6681874297574987`*^9, 3.668187481442852*^9}, {3.6681875159231033`*^9, 
   3.66818751647386*^9}, {3.668187676247175*^9, 3.66818768715088*^9}, {
   3.668187807957081*^9, 3.668187810156796*^9}, 3.6681878677945766`*^9, {
   3.668192637722664*^9, 3.6681926384504833`*^9}, {3.668192682042522*^9, 
   3.668192705296905*^9}, {3.682682345535097*^9, 3.682682347997387*^9}, {
   3.682754890045689*^9, 3.682754900136516*^9}, {3.682754952296125*^9, 
   3.682755022164933*^9}, {3.682755115621669*^9, 3.6827551535141687`*^9}, {
   3.682755192899743*^9, 3.682755204616169*^9}, {3.682755483075945*^9, 
   3.682755572184518*^9}, {3.682755620936475*^9, 3.68275570339452*^9}, {
   3.682755785197132*^9, 3.6827558328591137`*^9}, {3.682755872957996*^9, 
   3.682755929888302*^9}, {3.6827560172459*^9, 3.68275608066227*^9}, {
   3.6827561903761797`*^9, 3.682756208255334*^9}, {3.682756341293084*^9, 
   3.682756435807774*^9}, {3.682756481562601*^9, 3.6827566171437607`*^9}, {
   3.6827571356319447`*^9, 3.68275715086217*^9}, {3.682757193154983*^9, 
   3.682757204761051*^9}, {3.682757287045686*^9, 3.6827573748421717`*^9}, {
   3.6827574428815193`*^9, 3.682757463459453*^9}, {3.6827575865280647`*^9, 
   3.682757600041594*^9}, {3.6827576521824217`*^9, 3.682757654103991*^9}, {
   3.682757736488762*^9, 3.68275776848295*^9}, {3.682757872746702*^9, 
   3.682757878996653*^9}, {3.682760893290402*^9, 3.682760919442278*^9}, {
   3.682761050069873*^9, 3.6827610875022707`*^9}, {3.682761344440157*^9, 
   3.6827613948805656`*^9}, {3.682761467533331*^9, 3.6827614906040382`*^9}, {
   3.682761599041744*^9, 3.6827616051249332`*^9}, {3.682761640140191*^9, 
   3.682761640269712*^9}, 3.6827639426904078`*^9, {3.6836041069697723`*^9, 
   3.6836041112112017`*^9}, 3.6836042162385483`*^9, {3.683604258086424*^9, 
   3.683604264748822*^9}, {3.68413887737684*^9, 3.684138878448064*^9}, {
   3.684138967042678*^9, 3.6841389692184362`*^9}, {3.684139303146071*^9, 
   3.6841393351275997`*^9}, {3.684139441296114*^9, 3.684139473944319*^9}, {
   3.684140980548189*^9, 3.6841409843885393`*^9}, {3.684148295094286*^9, 
   3.6841482963032303`*^9}, 3.6842129856849403`*^9, {3.684213283716967*^9, 
   3.6842133828533163`*^9}, 3.684235428926165*^9, {3.684492634022192*^9, 
   3.684492635098358*^9}, {3.684669134566234*^9, 3.6846691376529293`*^9}, {
   3.685082157159202*^9, 3.685082158064439*^9}, 3.685084042458507*^9, {
   3.685351440985919*^9, 3.68535144830571*^9}, {3.685351631494957*^9, 
   3.685351726668476*^9}, 3.685352008158111*^9, {3.685686126515623*^9, 
   3.685686128329524*^9}, {3.68568617716809*^9, 3.685686214633534*^9}, {
   3.6856966918105917`*^9, 3.685696730149053*^9}, {3.685696768458043*^9, 
   3.685696768931511*^9}, {3.685699116303381*^9, 3.685699129690091*^9}, {
   3.717218478566028*^9, 3.7172184794036493`*^9}, 3.717740919858317*^9, 
   3.728589900907535*^9, {3.728621424723817*^9, 3.7286214272083683`*^9}, 
   3.7416291419918423`*^9, 3.7627930941242437`*^9, {3.786968676611054*^9, 
   3.786968685016528*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[893]:=",
 CellID->496697248,ExpressionUUID->"37a77641-affd-45d5-835b-94533dba627a"]
}, Closed]]
}, Open  ]]
},
WindowSize->Medium,
WindowMargins->Automatic,
Visible->True,
CellContext->"Global`",
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[16988, 504, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"357b84d4-c4f2-4223-835b-7d80c14da5ae",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 38779, 1062}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 600, 14, 24, "History",ExpressionUUID->"41b92cb5-6307-4b65-9d1f-1cd6b1a08f27",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1183, 38, 123, 1, 29, "CategorizationSection",ExpressionUUID->"4b2fade1-3d42-480c-bae4-79df1e90e901",
 CellID->1122911449],
Cell[1309, 41, 134, 2, 30, "Categorization",ExpressionUUID->"6be13ae6-e0b8-471b-adac-870e74167591",
 CellID->686433507],
Cell[1446, 45, 175, 3, 30, "Categorization",ExpressionUUID->"bbb319de-3ca0-4fc1-a9a2-e4c951db8cf5",
 CellID->605800465],
Cell[1624, 50, 171, 3, 30, "Categorization",ExpressionUUID->"80d6f25b-c374-4795-b1f9-891196b30cf7",
 CellID->468444828],
Cell[1798, 55, 206, 2, 30, "Categorization",ExpressionUUID->"08c15264-06bf-42ee-8484-e79f20e11f02"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2041, 62, 110, 1, 29, "KeywordsSection",ExpressionUUID->"11256e91-e561-4e94-a5e0-eb46041e8b1d",
 CellID->477174294],
Cell[2154, 65, 100, 1, 70, "Keywords",ExpressionUUID->"68c827e3-cebb-4a5a-b33a-e09571824d44",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[2291, 71, 120, 1, 19, "TemplatesSection",ExpressionUUID->"6db675a1-b45c-479a-ac09-1cfa1895af63",
 CellID->1872225408],
Cell[2414, 74, 149, 2, 70, "Template",ExpressionUUID->"a9ca113b-df6d-41d9-a2ee-8f75333d3494",
 CellID->1562036412],
Cell[2566, 78, 137, 2, 70, "Template",ExpressionUUID->"e841e610-54de-4865-8fa8-2a5647bdcbd8",
 CellID->158391909],
Cell[2706, 82, 136, 2, 70, "Template",ExpressionUUID->"e5c70a0d-8a41-4185-81ea-365c6cba37e6",
 CellID->1360575930],
Cell[2845, 86, 137, 2, 70, "Template",ExpressionUUID->"d40c81a8-26fb-44b1-96ed-7bb8324593da",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[3019, 93, 108, 1, 19, "DetailsSection",ExpressionUUID->"14ec82a3-eaa9-44e9-962b-5f2db3f40929",
 CellID->307771771],
Cell[3130, 96, 118, 2, 70, "Details",ExpressionUUID->"f423730a-fac6-4b44-aa37-0750131658e7",
 CellID->670882175],
Cell[3251, 100, 124, 2, 70, "Details",ExpressionUUID->"e2a748d3-13bf-46c8-b82b-dfa3fbb9c97a",
 CellID->350963985],
Cell[3378, 104, 119, 2, 70, "Details",ExpressionUUID->"c36a21c2-d85a-4dda-9aaa-8210fa8b7d59",
 CellID->8391405],
Cell[3500, 108, 124, 2, 70, "Details",ExpressionUUID->"8da9bc22-a5c0-4486-bf2e-8915eb51f6d3",
 CellID->3610269],
Cell[3627, 112, 116, 2, 70, "Details",ExpressionUUID->"46beba1c-a6b8-4efc-a70f-88942d551c75",
 CellID->401364205],
Cell[3746, 116, 116, 2, 70, "Details",ExpressionUUID->"84a24b25-de1a-4cdf-b56f-19a470453cde",
 CellID->350204745],
Cell[3865, 120, 118, 2, 70, "Details",ExpressionUUID->"050b674e-cbcf-4ba1-882e-fa8ae3a48d47",
 CellID->732958810],
Cell[3986, 124, 133, 2, 70, "Details",ExpressionUUID->"99a1d6fc-eebf-4cee-9ec1-66acb74786d2",
 CellID->222905350],
Cell[4122, 128, 122, 2, 70, "Details",ExpressionUUID->"cf22ae1b-6ba2-4b01-a798-ae9eb9aaf93b",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4281, 135, 194, 2, 63, "ObjectName",ExpressionUUID->"343d5467-fd87-4803-9629-dd60ff2f1ef0",
 CellID->1224892054],
Cell[4478, 139, 2199, 63, 95, "Usage",ExpressionUUID->"4544d898-b335-4cf6-9df2-e7752c38d861",
 CellID->982511436],
Cell[6680, 204, 656, 15, 43, "Notes",ExpressionUUID->"07d17f3d-38ad-4c65-b710-3050a85f8248",
 CellID->1067943069]
}, Open  ]],
Cell[CellGroupData[{
Cell[7373, 224, 112, 1, 44, "TutorialsSection",ExpressionUUID->"42fabadd-4b7c-4c7f-85be-51750940b0a7",
 CellID->250839057],
Cell[7488, 227, 100, 1, 16, "Tutorials",ExpressionUUID->"11c8a139-8b8c-4683-ad72-83bff7b78e3b",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[7625, 233, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"534bdd52-71ac-488b-af42-8b1daa72f0b2",
 CellID->1268215905],
Cell[7766, 236, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"f099c96e-c3f8-4bd2-bb7d-9c39734ccccc",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[7916, 242, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"7321bba7-1d63-4cc5-983f-24173a12f947",
 CellID->1584193535],
Cell[8039, 245, 104, 1, 16, "RelatedLinks",ExpressionUUID->"ca3f3e5a-96d9-40de-a4fb-41c3a8d615f6",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[8180, 251, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"6eb864d1-fda6-4158-bdab-79e3e6f85285",
 CellID->1255426704],
Cell[8293, 254, 2491, 60, 57, "SeeAlso",ExpressionUUID->"d465fd6c-5bc2-4bb5-b3cc-c1e182004859",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[10821, 319, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"72681b7f-dd11-43cc-946a-659b46212a7d",
 CellID->38303248],
Cell[10936, 322, 166, 2, 16, "MoreAbout",ExpressionUUID->"f72af250-7a68-4a7c-ad98-5faa1bccdd88",
 CellID->1817734421]
}, Open  ]],
Cell[CellGroupData[{
Cell[11139, 329, 411, 11, 70, "PrimaryExamplesSection",ExpressionUUID->"f205d199-0a8e-4df2-b361-634cc95c0873",
 CellID->880084151],
Cell[CellGroupData[{
Cell[11575, 344, 568, 15, 34, "Input",ExpressionUUID->"a94b1a26-f5a8-4ca0-a901-907929c968ae",
 CellID->727704819],
Cell[12146, 361, 442, 7, 25, "Output",ExpressionUUID->"691ae273-1e7c-4723-b82f-abfe0891af3d",
 CellID->1592317819]
}, Open  ]],
Cell[CellGroupData[{
Cell[12625, 373, 532, 15, 27, "Input",ExpressionUUID->"18c4270a-8eb3-480c-a030-938c6175ab78",
 CellID->670837677],
Cell[13160, 390, 443, 7, 25, "Output",ExpressionUUID->"fbde36ca-c1da-4160-982c-027e6e9e18d1",
 CellID->1422466541]
}, Open  ]],
Cell[CellGroupData[{
Cell[13640, 402, 608, 14, 27, "Input",ExpressionUUID->"360f3af1-cd01-46eb-b097-0ad3d41bc38f",
 CellID->506118485],
Cell[14251, 418, 243, 4, 25, "Output",ExpressionUUID->"d16449cc-1d53-4a24-abd4-7eb1ec8975f3",
 CellID->51452510]
}, Open  ]],
Cell[CellGroupData[{
Cell[14531, 427, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"becf4b16-ca2f-42a6-b74d-a0c43a7f49b5",
 CellID->1902417437],
Cell[14777, 434, 411, 10, 25, "ExampleText",ExpressionUUID->"720c4508-1705-48d9-836d-93e2092e71b7",
 CellID->45843476],
Cell[CellGroupData[{
Cell[15213, 448, 536, 15, 29, "Input",ExpressionUUID->"eb328efa-808a-4d77-b686-a9512f79bf80",
 CellID->676950156],
Cell[15752, 465, 245, 4, 25, "Output",ExpressionUUID->"1ec5a3d0-3401-4c19-91f5-f022e72be614",
 CellID->1311300783]
}, Open  ]],
Cell[CellGroupData[{
Cell[16034, 474, 618, 16, 50, "Input",ExpressionUUID->"d7578de9-a742-4b43-85cb-e3d220b244b7",
 CellID->1577021808],
Cell[16655, 492, 272, 5, 25, "Output",ExpressionUUID->"2c836cb7-770a-4c56-bd47-01c85b76bf38",
 CellID->1360032209]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16988, 504, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"357b84d4-c4f2-4223-835b-7d80c14da5ae",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[CellGroupData[{
Cell[17168, 510, 242, 5, 33, "ExampleSection",ExpressionUUID->"7f395b67-2207-4cc8-9444-1ebd2c615efd",
 CellID->1293636265],
Cell[17413, 517, 1401, 33, 87, "ExampleText",ExpressionUUID->"50bde84f-860f-41f2-a1e0-782d093e5a8b",
 CellID->1380641436],
Cell[CellGroupData[{
Cell[18839, 554, 294, 6, 29, "Input",ExpressionUUID->"8f74b501-1ae6-49c4-9a28-3af307bf6efd",
 CellID->360263669],
Cell[19136, 562, 273, 5, 26, "Output",ExpressionUUID->"6dec6eed-413f-443e-a894-dcc9f62dfeea",
 CellID->1024495232]
}, Open  ]],
Cell[19424, 570, 482, 11, 25, "ExampleText",ExpressionUUID->"ec6cccc2-5d51-4576-8e21-0e77964fe8bc",
 CellID->428064815],
Cell[CellGroupData[{
Cell[19931, 585, 323, 7, 29, "Input",ExpressionUUID->"827dd1eb-8d97-42f1-814e-e20d339a20ad",
 CellID->1188448529],
Cell[20257, 594, 274, 5, 26, "Output",ExpressionUUID->"90021916-f426-4eba-9757-de996ac03128",
 CellID->167482578]
}, Open  ]],
Cell[20546, 602, 483, 11, 23, "ExampleText",ExpressionUUID->"b537a2c7-81b8-415b-81c4-54105bc0efd0",
 CellID->1349043229],
Cell[21032, 615, 573, 12, 38, "ExampleText",ExpressionUUID->"95f9a712-b782-4771-8170-a6682102e755",
 CellID->1615340659],
Cell[CellGroupData[{
Cell[21630, 631, 362, 8, 27, "Input",ExpressionUUID->"f1080102-9a3c-4f84-b469-2ecb92696cc8",
 CellID->2133512658],
Cell[21995, 641, 2378, 77, 80, "Output",ExpressionUUID->"f07ed2be-f89f-4c86-aa38-fe2b7e57aa54",
 CellID->1676110876]
}, Open  ]],
Cell[24388, 721, 525, 12, 38, "ExampleText",ExpressionUUID->"7d1a1ea7-e969-45c8-83d5-020af28c12b3",
 CellID->1052329130]
}, Open  ]],
Cell[24928, 736, 265, 5, 33, "ExampleSection",ExpressionUUID->"aa760848-6279-420a-bc52-dd155d77d243",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[25218, 745, 244, 5, 21, "ExampleSection",ExpressionUUID->"5d03bd77-1ecb-4069-9462-7c55c8db40a0",
 CellID->2061341341],
Cell[25465, 752, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"ee0113d7-f167-4649-929d-e4ca0252b8ce",
 CellID->1757724783],
Cell[25715, 759, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"666d452f-f4c5-4eb0-b75c-ffc52a217cfb",
 CellID->1295379749]
}, Closed]],
Cell[25977, 767, 248, 5, 21, "ExampleSection",ExpressionUUID->"525622ef-a63f-441a-9193-97f76b4a8be9",
 CellID->258228157],
Cell[26228, 774, 259, 5, 21, "ExampleSection",ExpressionUUID->"52a5343e-9e0e-495f-9b73-f720dd6060e5",
 CellID->2123667759],
Cell[CellGroupData[{
Cell[26512, 783, 252, 5, 21, "ExampleSection",ExpressionUUID->"e1eee1a3-93bc-435a-8989-c8f9cd9bdf07",
 CellID->1305812373],
Cell[CellGroupData[{
Cell[26789, 792, 542, 10, 34, "Input",ExpressionUUID->"ced7f501-01c8-41b1-b69e-e2cf5955b41e",
 CellID->1285983698],
Cell[27334, 804, 570, 11, 19, "Message",ExpressionUUID->"32200882-889b-4895-9ac3-8796b109609d",
 CellID->70512762],
Cell[27907, 817, 347, 6, 25, "Output",ExpressionUUID->"cb6e6cfb-40b3-4932-80aa-79caa9ebb4b3",
 CellID->1844501437]
}, Open  ]],
Cell[CellGroupData[{
Cell[28291, 828, 690, 16, 27, "Input",ExpressionUUID->"4edf24fe-1d1a-42c0-956c-44bd95b8c644",
 CellID->479081005],
Cell[28984, 846, 855, 15, 22, "Message",ExpressionUUID->"6b58a425-d133-42b1-8d5a-7fa929366a51",
 CellID->1274717907],
Cell[29842, 863, 348, 6, 25, "Output",ExpressionUUID->"7963a099-22a4-4dcf-afff-77c204e211f8",
 CellID->887000477]
}, Open  ]],
Cell[CellGroupData[{
Cell[30227, 874, 633, 14, 27, "Input",ExpressionUUID->"adf7aa12-6ba7-4dca-b76e-ba1a5d6af6b7",
 CellID->998258432],
Cell[30863, 890, 618, 12, 19, "Message",ExpressionUUID->"200f6565-b488-4d1d-b03d-d746967e3d65",
 CellID->452546014],
Cell[31484, 904, 347, 6, 25, "Output",ExpressionUUID->"8803e5fc-973d-4608-83f3-8035cd1f8189",
 CellID->1701263271]
}, Open  ]]
}, Open  ]],
Cell[31858, 914, 257, 5, 33, "ExampleSection",ExpressionUUID->"a6f99cab-d009-403f-ae3f-3649071ba380",
 CellID->1653164318],
Cell[32118, 921, 249, 5, 21, "ExampleSection",ExpressionUUID->"bdb9fe7f-c069-4719-9a10-7c645312d726",
 CellID->589267740],
Cell[CellGroupData[{
Cell[32392, 930, 374, 8, 21, "ExampleSection",ExpressionUUID->"466cee04-7426-40c0-981f-ea7bd63f3d06",
 CellID->1544545457],
Cell[32769, 940, 517, 13, 65, "Input",ExpressionUUID->"fdef7999-d3b7-435d-8a23-469d253b3e65",
 InitializationCell->False,
 CellID->1983196905],
Cell[33289, 955, 5064, 89, 243, "Input",ExpressionUUID->"37a77641-affd-45d5-835b-94533dba627a",
 InitializationCell->False,
 CellID->496697248]
}, Closed]]
}, Open  ]]
}
]
*)

